home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / gnustuff / tos / gawk / gawk213b.zoo / test / chem / good < prev    next >
Encoding:
Text File  |  1991-05-10  |  6.7 KB  |  272 lines
  1. .PS
  2. copy "./chem.macros"
  3.     textht = 0.16; textwid = .1; cwid = 0.12
  4.     lineht = 0.2; linewid = 0.2
  5. Last: 0,0
  6.  
  7. # 
  8.  
  9. # R:    ring pointing right double 1,2 3,4 5,6
  10. R:
  11. Last: [
  12.     C: 0,0
  13.     V0: (0.15,0.259808)
  14.     V1: (0.3,4.00474e-09)
  15.     V2: (0.15,-0.259808)
  16.     V3: (-0.15,-0.259808)
  17.     V4: (-0.3,-1.20142e-08)
  18.     V5: (-0.15,0.259808)
  19.     V6: (0.15,0.259808)
  20.     V7: (0.3,2.00237e-08)
  21.     line from V1 to V2
  22.     line from 0.85<C,V1> to 0.85<C,V2>
  23.     line from V2 to V3
  24.     line from V3 to V4
  25.     line from 0.85<C,V3> to 0.85<C,V4>
  26.     line from V4 to V5
  27.     line from V5 to V6
  28.     line from 0.85<C,V5> to 0.85<C,V6>
  29.     line from V6 to V1
  30. ] with .V4.w at Last.e 
  31.  
  32. #     bond left from R ; OH
  33. Last: bond(0.2, 270, from R.V4.w)
  34. Last: OH: atom("OH", 0.24, 0.16, 0.06, 0.16, 0.12, 0.015)  with .R.e at Last.end
  35.  
  36. #     bond -150 from R ; OCH3
  37. Last: bond(0.2, 210, from R.V3.sw)
  38. Last: OCH3: atom("OCH\s-3\d3\u\s+3", 0.42, 0.16, 0.18, 0.16, 0.12, 0.015)  with .R.ne at Last.end
  39.  
  40. #     bond right from R ; C
  41. Last: bond(0.2, 90, from R.V1.e)
  42. Last: C: atom("C", 0.12, 0.16, 0.06, 0.16, 0.12, 0.015)  with .L.w at Last.end
  43.  
  44. #     double bond up ; O
  45. Last: doublebond(0.2, 0, from Last.C.n )
  46. Last: O: atom("O", 0.12, 0.16, 0.06, 0.16, 0.12, 0.015)  with .C.s at Last.end
  47.  
  48. #     bond right from C ; N
  49. Last: bond(0.2, 90, from C.R.e)
  50. Last: N: atom("N", 0.12, 0.16, 0.06, 0.16, 0.12, 0.015)  with .L.w at Last.end
  51.  
  52. #     bond 45 ; C2H5
  53. Last: bond(0.2, 45, from Last.R.ne )
  54. Last: C2H5: atom("C\s-3\d2\u\s+3H\s-3\d5\u\s+3", 0.36, 0.16, 0.06, 0.16, 0.12, 0.015)  with .L.sw at Last.end
  55.  
  56. #      bond 135 from N ; C2H5
  57. Last: bond(0.2, 135, from N.R.se)
  58. Last: C2H5: atom("C\s-3\d2\u\s+3H\s-3\d5\u\s+3", 0.36, 0.16, 0.06, 0.16, 0.12, 0.015)  with .L.nw at Last.end
  59. .PE
  60. .PS
  61. Last: 0,0
  62.  
  63. # B:    benzene pointing right
  64. B:
  65. Last: [
  66.     C: 0,0
  67.     V0: (0.15,0.259808)
  68.     V1: (0.3,4.00474e-09)
  69.     V2: (0.15,-0.259808)
  70.     V3: (-0.15,-0.259808)
  71.     V4: (-0.3,-1.20142e-08)
  72.     V5: (-0.15,0.259808)
  73.     V6: (0.15,0.259808)
  74.     V7: (0.3,2.00237e-08)
  75.     line from V1 to V2
  76.     line from V2 to V3
  77.     line from V3 to V4
  78.     line from V4 to V5
  79.     line from V5 to V6
  80.     line from V6 to V1
  81.     circle rad 0.15 at 0,0
  82. ] with .V4.w at Last.e 
  83.  
  84. # F:    flatring5 pointing left put N at 5 double 3,4 with .V1 at B.V2
  85. F:
  86. Last: [
  87.     C: 0,0
  88.     V0: (-0.15,-0.259808)
  89.     V1: (-0.3,-1.20142e-08)
  90.     V2: (-0.15,0.259808)
  91.     V3: (0.15,0.259808)
  92.     V4: (0.3,2.00237e-08)
  93.     V5: (0.15,-0.259808)
  94.     V6: (-0.15,-0.259808)
  95.     V7: (-0.3,-2.80332e-08)
  96.     V4: V5; V5: V6
  97.     line from V1 to V2 chop 0 chop 0
  98.     line from V2 to V3 chop 0 chop 0
  99.     line from V3 to V4 chop 0 chop 0
  100.     line from 0.75<C,V3> to 0.75<C,V4> chop 0 chop 0
  101.     line from V4 to V5 chop 0 chop 0.08
  102.     V5: ellipse invis ht 0.16 wid 0.12 at V5
  103.     N:atom("N", 0.12, 0.16, 0.06, 0.16, 0.12, 0.015) at V5
  104.     line from V5 to V1 chop 0.08 chop 0
  105. ]   with .V1 at B.V2
  106.  
  107. #     H below F.N
  108. Last: H: atom("H", 0.12, 0.16, 0.06, 0.16, 0.12, 0.015) with .n at F.N.s
  109.  
  110. # R:    ring pointing right with .V4 at B.V6
  111. R:
  112. Last: [
  113.     C: 0,0
  114.     V0: (0.15,0.259808)
  115.     V1: (0.3,4.00474e-09)
  116.     V2: (0.15,-0.259808)
  117.     V3: (-0.15,-0.259808)
  118.     V4: (-0.3,-1.20142e-08)
  119.     V5: (-0.15,0.259808)
  120.     V6: (0.15,0.259808)
  121.     V7: (0.3,2.00237e-08)
  122.     line from V1 to V2
  123.     line from V2 to V3
  124.     line from V3 to V4
  125.     line from V4 to V5
  126.     line from V5 to V6
  127.     line from V6 to V1
  128. ]   with .V4 at B.V6
  129.  
  130. #     front bond right from R.V6 ; H
  131. Last: frontbond(0.2, 90, from R.V6.e)
  132. Last: H: atom("H", 0.12, 0.16, 0.06, 0.16, 0.12, 0.015)  with .L.w at Last.end
  133.  
  134. # R:    ring pointing right with .V2 at R.V6 put N at 1 double 3,4
  135. R:
  136. Last: [
  137.     C: 0,0
  138.     V0: (0.15,0.259808)
  139.     V1: (0.3,4.00474e-09)
  140.     V2: (0.15,-0.259808)
  141.     V3: (-0.15,-0.259808)
  142.     V4: (-0.3,-1.20142e-08)
  143.     V5: (-0.15,0.259808)
  144.     V6: (0.15,0.259808)
  145.     V7: (0.3,2.00237e-08)
  146.     V1: ellipse invis ht 0.16 wid 0.12 at V1
  147.     N:atom("N", 0.12, 0.16, 0.06, 0.16, 0.12, 0.015) at V1
  148.     line from V1 to V2 chop 0.08 chop 0
  149.     line from V2 to V3 chop 0 chop 0
  150.     line from V3 to V4 chop 0 chop 0
  151.     line from 0.85<C,V3> to 0.85<C,V4> chop 0 chop 0
  152.     line from V4 to V5 chop 0 chop 0
  153.     line from V5 to V6 chop 0 chop 0
  154.     line from V6 to V1 chop 0 chop 0.08
  155. ]   with .V2 at R.V6
  156.  
  157. #     bond right from R.N ; CH3
  158. Last: bond(0.2, 90, from R.N.e)
  159. Last: CH3: atom("CH\s-3\d3\u\s+3", 0.3, 0.16, 0.06, 0.16, 0.12, 0.015)  with .L.w at Last.end
  160.  
  161. #     back bond -60 from R.V5 ; H
  162. Last: backbond(0.2, 300, from R.V5.nw)
  163. Last: H: atom("H", 0.12, 0.16, 0.06, 0.16, 0.12, 0.015)  with .R.se at Last.end
  164.  
  165. #     bond up from R.V5 ; CO
  166. Last: bond(0.2, 0, from R.V5.n)
  167. Last: CO: atom("CO", 0.24, 0.16, 0.06, 0.16, 0.12, 0.015)  with .C.s at Last.end
  168.  
  169. #     bond right ; N(C2H5)2
  170. Last: bond(0.2, 90, from Last.R.e )
  171. Last: NC2H52: atom("N(C\s-3\d2\u\s+3H\s-3\d5\u\s+3)\s-3\d2\u\s+3", 0.66, 0.16, 0.24, 0.16, 0.12, 0.015)  with .L.w at Last.end
  172. .PE
  173. .PS
  174. Last: 0,0
  175.  
  176. # R1:    ring6 double 1,2
  177. R1:
  178. Last: [
  179.     C: 0,0
  180.     V0: (-0.259808,0.15)
  181.     V1: (0,0.3)
  182.     V2: (0.259808,0.15)
  183.     V3: (0.259808,-0.15)
  184.     V4: (8.00947e-09,-0.3)
  185.     V5: (-0.259808,-0.15)
  186.     V6: (-0.259808,0.15)
  187.     V7: (-1.60189e-08,0.3)
  188.     line from V1 to V2
  189.     line from 0.85<C,V1> to 0.85<C,V2>
  190.     line from V2 to V3
  191.     line from V3 to V4
  192.     line from V4 to V5
  193.     line from V5 to V6
  194.     line from V6 to V1
  195. ] with .V5.w at Last.e 
  196.  
  197. #     bond -60 from R1.V6 ; HO
  198. Last: bond(0.2, 300, from R1.V6.nw)
  199. Last: HO: atom("HO", 0.24, 0.16, 0.06, 0.16, 0.12, 0.015)  with .R.se at Last.end
  200.  
  201. # R2:    ring6 with .V1 at R1.V3
  202. R2:
  203. Last: [
  204.     C: 0,0
  205.     V0: (-0.259808,0.15)
  206.     V1: (0,0.3)
  207.     V2: (0.259808,0.15)
  208.     V3: (0.259808,-0.15)
  209.     V4: (8.00947e-09,-0.3)
  210.     V5: (-0.259808,-0.15)
  211.     V6: (-0.259808,0.15)
  212.     V7: (-1.60189e-08,0.3)
  213.     line from V1 to V2
  214.     line from V2 to V3
  215.     line from V3 to V4
  216.     line from V4 to V5
  217.     line from V5 to V6
  218.     line from V6 to V1
  219. ]   with .V1 at R1.V3
  220.  
  221. #     bond 60 from R2.V2 ; N
  222. Last: bond(0.2, 60, from R2.V2.ne)
  223. Last: N: atom("N", 0.12, 0.16, 0.06, 0.16, 0.12, 0.015)  with .L.sw at Last.end
  224.  
  225. #     bond right from N ; CH3
  226. Last: bond(0.2, 90, from N.R.e)
  227. Last: CH3: atom("CH\s-3\d3\u\s+3", 0.3, 0.16, 0.06, 0.16, 0.12, 0.015)  with .L.w at Last.end
  228.  
  229. # R3:    benzene with .V1 at R2.V5
  230. R3:
  231. Last: [
  232.     C: 0,0
  233.     V0: (-0.259808,0.15)
  234.     V1: (0,0.3)
  235.     V2: (0.259808,0.15)
  236.     V3: (0.259808,-0.15)
  237.     V4: (8.00947e-09,-0.3)
  238.     V5: (-0.259808,-0.15)
  239.     V6: (-0.259808,0.15)
  240.     V7: (-1.60189e-08,0.3)
  241.     line from V1 to V2
  242.     line from V2 to V3
  243.     line from V3 to V4
  244.     line from V4 to V5
  245.     line from V5 to V6
  246.     line from V6 to V1
  247.     circle rad 0.15 at 0,0
  248. ]   with .V1 at R2.V5
  249.  
  250. #     bond -120 from R3.V5 ; HO
  251. Last: bond(0.2, 240, from R3.V5.sw)
  252. Last: HO: atom("HO", 0.24, 0.16, 0.06, 0.16, 0.12, 0.015)  with .R.ne at Last.end
  253.  
  254. #     bond -135 length .3 from R1.V5 ; O
  255. Last: bond(0.3, 225, from R1.V5.sw)
  256. Last: O: atom("O", 0.12, 0.16, 0.06, 0.16, 0.12, 0.015)  with .R.ne at Last.end
  257.  
  258. #     bond -45 length .3 from R3.V6
  259. Last: bond(0.3, 315, from R3.V6.nw)
  260.  
  261. #     bond up length .1 from N ; BP
  262. Last: bond(0.1, 0, from N.C.n)
  263. Last: BP: "" ht 0 wid 0  with .s at Last.end
  264.  
  265. # B1:    bond up length .35 from R1.V4
  266. B1:
  267. Last: bond(0.35, 0, from R1.V4.n)
  268.  
  269. #     bond to BP
  270. Last: bond(0, 0, to BP )
  271. .PE
  272.